home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00186_Slots machine.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  742 b   |  44 lines
  1. property pOrigMember, pHighMember, pSpr, pSound
  2.  
  3. on mouseUp me
  4.   pSpr.member = pOrigMember
  5. end
  6.  
  7. on mouseDown me
  8.   global gPlayerTipsThisLevel, gBonusCharacters
  9.   if the doubleClick then
  10.     exit
  11.   end if
  12.   if gPlayerTipsThisLevel <= 0 then
  13.     managerVO("E05", 1)
  14.     exitGame(0)
  15.     exit
  16.   end if
  17.   stopPatronSounds()
  18.   sprite(10).locH = 5000
  19.   sprite(12).locH = 5000
  20.   sprite(14).locH = 5000
  21.   regTip(-5, 1)
  22.   repeat with X in gBonusCharacters
  23.     sendSprite(X, #slots)
  24.   end repeat
  25.   nothing()
  26. end
  27.  
  28. on beginSprite me
  29.   pSpr = sprite(me.spriteNum)
  30.   pOrigMember = pSpr.member
  31.   pHighMember = nextMember(pOrigMember)
  32. end
  33.  
  34. on mouseEnter me
  35.   pSpr.member = pHighMember
  36. end
  37.  
  38. on mouseLeave me
  39.   pSpr.member = pOrigMember
  40. end
  41.  
  42. on mouseWithin
  43. end
  44.